 '
 ' Created with MyFormCompiler
 ' Author: John Doe
 ' Date: 14/06/2014
 ' Time: 17:16
 '
 Imports System
 Imports System.Windows.Forms
 Imports System.Drawing
 Imports JdFormsDll
 
 Namespace JdFormDll.Decorator
 
	Friend Enum MyFormDecoratorSettings As Integer
		Test1 = 0
		Test10 = 1
		Test11 = 2
		Test12 = 3
		Test13 = 4
		Test14 = 5
		Test15 = 6
		Test16 = 7
		Test17 = 8
		Test18 = 9
		Test19 = 10
		Test2 = 11
		Test20 = 12
		Test3 = 13
		Test4 = 14
		Test5 = 15
		Test6 = 16
		Test7 = 17
		Test8 = 18
		Test9 = 19 
	End Enum
 
	Friend Module Skins
	
		Private Index As Integer = 0
		
        Friend Property CurrentDecorator() As MyFormDecoratorSettings
            Get
                Return CType(Index, MyFormDecoratorSettings)
            End Get
            Set(value As MyFormDecoratorSettings)
                Index = CType(value, Integer)
            End Set
        End Property
        
		Friend Sub SetDecorator (ByVal Form As MyForm)
			Form.BackColor = BackColor
			Form.BackColorShadow = BackColorShadow
			Form.BorderColor = BorderColor
			Form.TextCaptionColor = TextCaptionColor
			Form.TextCaptionColorShadow = TextCaptionColorShadow
			Form.ForeColor = ForeColor
			Form.BorderStyle = BorderStyle
			Form.CaptionBorderRoundPercent = CaptionBorderRoundPercent
			Form.ColorsDifferencePercent = ColorsDifferencePercent
			Form.TextCaptionAlignment = TextCaptionAlignment
			Form.TextCaptionShadow = TextCaptionShadow
			Form.IsResizable = IsResizable
			Form.IsMoveable = IsMoveable
			Form.ShowClientBorder = ShowClientBorder
			Form.ShowCaptionBorder = ShowCaptionBorder
			Form.ShowTooltip = ShowTooltip
			Form.TextCaptionFont = TextCaptionFont
		End Sub
	
		Private _BackColor As Color() = New Color() {
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,192,192,192),
			Color.FromArgb(255,255,228,181),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,51,102,153),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,105,105,105),
			Color.FromArgb(255,34,139,34),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,216,191,216),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,230,230,250),
			Color.FromArgb(255,70,130,180),
			Color.FromArgb(255,144,238,144),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,173,216,230),
			Color.FromArgb(255,255,192,192) }

		Friend ReadOnly Property BackColor() As Color
			Get
				Return _BackColor(Index)
			End Get
		End Property
	
		Private _BackColorShadow As Color() = New Color() {
			Color.FromArgb(255,0,0,139),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,255,165,0),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,171,172,223),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,105,105,105),
			Color.FromArgb(255,34,139,34),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,0,0,139),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,0,0,139),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,240,248,255),
			Color.FromArgb(255,255,250,240) }

		Friend ReadOnly Property BackColorShadow() As Color
			Get
				Return _BackColorShadow(Index)
			End Get
		End Property
	
		Private _BorderColor As Color() = New Color() {
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,220,220,220),
			Color.FromArgb(255,255,228,181),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,51,102,153),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,105,105,105),
			Color.FromArgb(255,34,139,34),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,216,191,216),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,144,238,144),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,173,216,230),
			Color.FromArgb(255,255,192,192) }

		Friend ReadOnly Property BorderColor() As Color
			Get
				Return _BorderColor(Index)
			End Get
		End Property
	
		Private _TextCaptionColor As Color() = New Color() {
			Color.FromArgb(255,0,0,128),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,255,192),
			Color.FromArgb(255,255,140,0),
			Color.FromArgb(255,171,172,223),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,128,128,128),
			Color.FromArgb(255,34,139,34),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,153,50,204),
			Color.FromArgb(255,0,0,128),
			Color.FromArgb(255,0,0,128),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,128),
			Color.FromArgb(255,0,0,128),
			Color.FromArgb(255,255,255,0),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,255,255,255),
			Color.FromArgb(255,255,255,255) }

		Friend ReadOnly Property TextCaptionColor() As Color
			Get
				Return _TextCaptionColor(Index)
			End Get
		End Property
	
		Private _TextCaptionColorShadow As Color() = New Color() {
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,255,128,0),
			Color.FromArgb(255,255,248,220),
			Color.FromArgb(255,51,102,153),
			Color.FromArgb(255,211,211,211),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,245,245,245),
			Color.FromArgb(255,240,248,255),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,211,211,211),
			Color.FromArgb(255,176,196,222),
			Color.FromArgb(255,240,248,255),
			Color.FromArgb(255,34,139,34),
			Color.FromArgb(255,70,130,180),
			Color.FromArgb(255,70,130,180),
			Color.FromArgb(255,70,130,180) }

		Friend ReadOnly Property TextCaptionColorShadow() As Color
			Get
				Return _TextCaptionColorShadow(Index)
			End Get
		End Property
	
		Private _ForeColor As Color() = New Color() {
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0),
			Color.FromArgb(255,0,0,0) }

		Friend ReadOnly Property ForeColor() As Color
			Get
				Return _ForeColor(Index)
			End Get
		End Property
	
		Private _BorderStyle As Border3DStyle() = New Border3DStyle() {
			Border3DStyle.RaisedOuter,
			Border3DStyle.Bump,
			Border3DStyle.SunkenOuter,
			Border3DStyle.Flat,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.RaisedOuter,
			Border3DStyle.SunkenOuter,
			Border3DStyle.SunkenOuter,
			Border3DStyle.SunkenOuter,
			Border3DStyle.SunkenOuter }

		Friend ReadOnly Property BorderStyle() As Border3DStyle
			Get
				Return _BorderStyle(Index)
			End Get
		End Property
	
		Private _CaptionBorderRoundPercent As Percent() = New Percent() {
			Percent.Percent20,
			Percent.Percent50,
			Percent.Percent30,
			Percent.Percent20,
			Percent.Percent30,
			Percent.Percent30,
			Percent.Percent0,
			Percent.Percent20,
			Percent.Percent20,
			Percent.Percent20,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent30,
			Percent.Percent50,
			Percent.Percent100,
			Percent.Percent0,
			Percent.Percent30,
			Percent.Percent30,
			Percent.Percent30 }

		Friend ReadOnly Property CaptionBorderRoundPercent() As Percent
			Get
				Return _CaptionBorderRoundPercent(Index)
			End Get
		End Property
	
		Private _ColorsDifferencePercent As Percent() = New Percent() {
			Percent.Percent10,
			Percent.Percent30,
			Percent.Percent0,
			Percent.Percent10,
			Percent.Percent0,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent10,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent0,
			Percent.Percent10 }

		Friend ReadOnly Property ColorsDifferencePercent() As Percent
			Get
				Return _ColorsDifferencePercent(Index)
			End Get
		End Property
	
		Private _TextCaptionAlignment As ContentAlignment() = New ContentAlignment() {
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleLeft,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter,
			ContentAlignment.MiddleCenter }

		Friend ReadOnly Property TextCaptionAlignment() As ContentAlignment
			Get
				Return _TextCaptionAlignment(Index)
			End Get
		End Property
	
		Private _TextCaptionShadow As Shadow() = New Shadow() {
			Shadow.Hight,
			Shadow.None,
			Shadow.Normal,
			Shadow.Normal,
			Shadow.Low,
			Shadow.Normal,
			Shadow.Low,
			Shadow.Normal,
			Shadow.Normal,
			Shadow.Normal,
			Shadow.Normal,
			Shadow.Normal,
			Shadow.Hight,
			Shadow.Normal,
			Shadow.Hight,
			Shadow.Hight,
			Shadow.Normal,
			Shadow.Hight,
			Shadow.Hight,
			Shadow.Hight }

		Friend ReadOnly Property TextCaptionShadow() As Shadow
			Get
				Return _TextCaptionShadow(Index)
			End Get
		End Property
	
		Private _IsResizable As Boolean() = New Boolean() {
			True,
			True,
			True,
			False,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			False,
			False,
			False }

		Friend ReadOnly Property IsResizable() As Boolean
			Get
				Return _IsResizable(Index)
			End Get
		End Property
	
		Private _IsMoveable As Boolean() = New Boolean() {
			True,
			True,
			True,
			False,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			False,
			True,
			True }

		Friend ReadOnly Property IsMoveable() As Boolean
			Get
				Return _IsMoveable(Index)
			End Get
		End Property
	
		Private _ShowClientBorder As Boolean() = New Boolean() {
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			False,
			True,
			False,
			True,
			True,
			False,
			True,
			True,
			True,
			True,
			True,
			True,
			False }

		Friend ReadOnly Property ShowClientBorder() As Boolean
			Get
				Return _ShowClientBorder(Index)
			End Get
		End Property
	
		Private _ShowCaptionBorder As Boolean() = New Boolean() {
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			False,
			True,
			False,
			True,
			True,
			False,
			True,
			True,
			True,
			True,
			True,
			True,
			False }

		Friend ReadOnly Property ShowCaptionBorder() As Boolean
			Get
				Return _ShowCaptionBorder(Index)
			End Get
		End Property
	
		Private _ShowTooltip As Boolean() = New Boolean() {
			True,
			True,
			True,
			True,
			True,
			True,
			True,
			False,
			False,
			False,
			False,
			True,
			False,
			True,
			True,
			True,
			True,
			True,
			True,
			False }

		Friend ReadOnly Property ShowTooltip() As Boolean
			Get
				Return _ShowTooltip(Index)
			End Get
		End Property
	
		Private _TextCaptionFont As Font() = New Font() {
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Regular),
			New Font("Arial",20.25F,FontStyle.Regular),
			New Font("Vivaldi",27.75F,FontStyle.Italic),
			New Font("Digital dream Fat",12F,FontStyle.Regular),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Bold),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Bold),
			New Font("Arial",14.25F,FontStyle.Bold),
			New Font("Tahoma",14.25F,FontStyle.Bold),
			New Font("Tahoma",14.25F,FontStyle.Bold),
			New Font("Tahoma",14.25F,FontStyle.Bold),
			New Font("Tahoma",14.25F,FontStyle.Bold),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Regular),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Regular),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Bold),
			New Font("Consolas",20.25F,FontStyle.Bold Or FontStyle.Italic),
			New Font("Copperplate Gothic Light",14.25F,FontStyle.Regular),
			New Font("LotsOfDotz",11.25F,FontStyle.Regular),
			New Font("Verdana",15.75F,FontStyle.Bold Or FontStyle.Italic),
			New Font("Verdana",15.75F,FontStyle.Bold Or FontStyle.Italic),
			New Font("Verdana",15.75F,FontStyle.Bold Or FontStyle.Italic) }

		Friend ReadOnly Property TextCaptionFont() As Font
			Get
				Return _TextCaptionFont(Index)
			End Get
		End Property

	End Module
 
 End Namespace